perm filename MU5INF[M5,LCS] blob
sn#168996 filedate 1975-07-16 generic text, type T, neo UTF8
******* PROGRAMS AND TEST DATA FOR MUSIC5 (6/74) ************
THE ENTIRE MUSIC5 PROGRAM IS FOUND IN THE FILE 'MUSIC5'. THIS
INCLUDES PASS1, PASS2, PASS3, READ1, FORSAM, M5FUNC AND ASSORTED
SMALLER ROUTINES. THIS FORM OF MUSIC5 IS SET UP FOR EITHER THE
IBM360 OR THE PDP10. THE PLACES WHERE THERE ARE SIGNIFICANT
DIFFERENCES ARE PROBABLY MARKED. THE FILE 'JCLDAT' INCLUDES MUCH
JUNK ASSEMBLED OVER THE YEARS FOR TESTS ON THE IBM360.
THE ENTIRE PROGRAM IS ALSO FOUND IN THE SEPARATE FILES
'PASS1', 'PASS2', 'PASS3', 'CVTDMY', 'M5FUNC', 'READ1' AND 'FORSAM'.
I BELIEVE THAT THESE FILES CONTAIN THE VERSION LAST RUN ON THE PDP10.
ALL PDP10 SPECIAL CODE SHOULD BE MARKED.
TO RUN 'PASS3' ALONE YOU MUST LOAD 'PASS3', 'M5FUNC' (CREATES
THE 'GEN' FUNCTIONS) AND 'FORSAM' (FORTRAN SAMPLE GENERATOR).
'FASTIO.FAI' IS FOR WRITING SAMPLES ON THE DSK. THE PDP10 FORM OF
'PASS3' CAN BE LOADED DIRECTLY AS 'MU5P3.REL'.
'IBMQ' AND 'IBMQB' ARE EARLY VERSIONS OF THE 'SCORE' PROGRAM.
THESE, AND 'IBM360' (THE 360 VERSION) ARE TO BE USED WITH 'PASS3'
(AND ITS COMPANIONS). THE SCORE PROGRAM ALSO NEEDS A LOCAL RANDOM
NUMBER GENERATOR WITH THE FOLLOWING CALL FORMAT:
X=RAND(R1,R2) WHERE R IS A FLOATING POINT NUMBER.
THE 'SCOR5' MANUAL IS ONLY AN APPENDIX TO THE MAIN 'SCORE'
MANUAL. 'SCOR5' GIVES ONLY THE DIFFERENCES BETWEEN MUSIC5 USE AND
THE STANFORD MUSIC SYSTEM USE.
THE LATEST VERSION(6/74) OF SCOR5 IS IN 'SCR5A', 'SCR5B' AND
'SCNR5'. THIS VERSION IS FOR THE PDP10 AND MUST BE LOADED WITH
'RAND'. THE OUTPUT OF SCOR5 IS USED AS INPUT TO 'PASS3' (MU5P3).
THE TEST FILES ARE ALL INPUT DATA FOR SCOR5.
*** FOR PDP10 ONLY **** WHEN SCOR5 IS RUN IT PRODUCES A SCORE ON THE
LINE PRINTER AND IT WRITES A FILE CALLED 'FOR21.DAT'. WHEN RUNNING
PASS3 YOU WILL BE ASKED FOR A FILE NAME. YOU MAY TYPE 'FOR21', OR
SIMPLY CARRIAGE RETURN (<CR>). THE SOUND SAMPLES WILL BE WRITTEN ON
THE DSK WITH THE NAME 'MUSAA.DMD'. USE YOUR LOCAL D-TO-A PROGRAM TO
PLAY THE SOUND.
IF, AFTER THE FILE NAME, YOU TYPE 5 SPACES AND THE NUMBER '1', THE
SAMPLES WILL BE WRITTEN ON THE LINE PRINTER FOR STUDY PURPOSES.
**** DIRECTORY OF FILES ON TAPE (IF IT IS A TAPE!) ********
16-JUL-75 1204
FILNAM EXT PPN SIZE WRITTEN TIME PRO WRITER REFERENCED DUMPED OFF
MU5INF M5LCS 2.6 16-JUL-75 1144 000 M5LCS COPY 16-JUL-75
PASS1 F4 M5LCS 617 16-JUL-75 1145 000 M5LCS COPY 16-JUL-75
PASS2 F4 M5LCS 1.0 16-JUL-75 1145 000 M5LCS COPY 16-JUL-75
PASS3 F4 M5LCS 1.3 16-JUL-75 1145 000 M5LCS COPY 16-JUL-75
MUSIC5 M5LCS 7.5 16-JUL-75 1145 000 M5LCS COPY 16-JUL-75
IBM360 M5LCS 8.3 16-JUL-75 1146 000 M5LCS COPY 16-JUL-75
SCOR5 MAN M5LCS 2.8 16-JUL-75 1146 000 M5LCS COPY 16-JUL-75
SCR5A F4 M5LCS 4.1 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
SCR5B F4 M5LCS 4.6 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
IBMQ F4 M5LCS 4.1 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
IBMQB F4 M5LCS 3.1 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
SCNR5 F4 M5LCS 2.6 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
M5FUNC F4 M5LCS 1.4 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
QQSVED RPG M5LCS 2 16-JUL-75 1204 000 M5LCS RPG 16-JUL-75
READ1 F4 M5LCS 1.8 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
FORSAM F4 M5LCS 1.5 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
JCLDAT M5LCS 5.8 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
CVTDMY F4 M5LCS 52 16-JUL-75 1159 000 M5LCS COPY 16-JUL-75
TOTAL= 53.9
SOME TEST FILES ********
SRT 10000; SET SAMPLING RATE TO 10000 00100300
INS 0 1; INSTRUMENT 1 00100400
OSC P4 P6 B2 F1; 00100500
OSC B2 P3 B2 F2; 00100600
OUT B2 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK! 00100700
00100800
INS 0 2; INST 2 (GLISS) SET P6 TO -1. P5 IS DESTINATION OF GLISS. 00100900
OSC P4 P8 B2 F1/MLT P6 P3 B3/AD2 P5 B3 B3/OSC B3 P8 B3 F3; 00101000
AD2 P3 B3 B3/OSC B2 B3 B3 F2/OUT B3 B1/END; 00101100
GEN 0 1 1 .01 0 .99 25; 00101400
.99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE! 00101500
GEN 0 2 2 .7 0 .5 0 .4 5*; F2 , 3 HARMONICS (1,3,5) 00101600
GEN 0 3 3 0 1*; F3 PUTS LINE FROM 0 TO 1 IN 511 STEPS 00101700
00101800
SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP. 00101900
BLANK CARDS MAY COME INSTEAD OF INST NAMES OR 00102000
PARAM #S AFTER THIS POINT. 00102100
BUZZ ; INSTRUMENT 1=BUZZ, BEGIN TIME=0", 00102200
P2 RHY; RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM. 00102400
16/////4./-8; 00102500
4./16////4/FINE*; 00102600
P3 NOTES/C4/D/E/F/FS/G/EF5/D/A4*; 00103000
P5 DF 1.5/P4 500/END; 00103100
TEMPO/96*; 00103200
GLIS 0 5/P2 1/P3 NOTES/G1/C2/A/F5/EF6*/P5 NO/G3//C5/C2/A4*; 00103250
P7 DF 1.5/P6 -1/P4 500/END; 00103300
RUN; 00103400
INS 0 1; INSTRUMENT 1
OSC P4 P7 B2 F1;
RAH P5 P6 B3/AD3 P5 P3 B3 B3; P5 SHOULD HAVE 1/2 FREQ TO BE ADDED.
OSC B2 B3 B2 F2;
OUT B2 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 1 .01 0 .99 25;
.99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE!
GEN 0 2 2 .7 .5 0 .4 4*; F2 , 3 HARMONICS (1,2,4)
SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP.
BLANK CARDS MAY COME INSTEAD OF INST NAMES OR
PARAM #S AFTER THIS POINT.
BUZZ 0 1 1; INSTRUMENT 1=BUZZ, BEGIN TIME=0",
P2 1/P3 FREQ 300/P5 FREQ 200;
P6 .51;FREQ;
P4 1000/END;
RUN;
SRT 25000; SET SAMPLING RATE TO 25000 00100300
INS 0 1; INSTRUMENT 1 00100400
OSC P4 P8 B4 F1; 00100410
MLT P5 P6 B3; 00100420
OSC B3 P8 B3 F2; RAMP 00100500
MLT P7 P6 B5; P7 IS BASIC M.I., P5 = AMOUNT TO BE ADDED. 00100505
AD2 B3 B5 B3; 00100507
OSC B3 P6 B3 F3; MODULATOR, P6 CONVTS AS FREQ.(MOD. FREQ.) 00100510
AD2 P3 B3 B3; ADD IN CENTER FREQ. 00100555
OSC B4 B3 B4 F3; 00100600
OUT B4 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK! 00100700
00100800
GEN 0 1 1 .01 0 .99 25; 00101400
.99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE! 00101500
GEN 0 2 3 1 1*; F3 , 1 HARMONIC 00101600
GEN 0 3 2 0 1*; F2 PUTS LINE FROM 0 TO 1 IN 511 STEPS 00101700
00101800
SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP. 00101900
BLANK CARDS MAY COME INSTEAD OF INST NAMES OR 00102000
PARAM #S AFTER THIS POINT. 00102100
00103210
WUVV 0 1 2/P2 1/P4 2000; 00103300
P6 200 FREQ/P5 NUM/20/10*/P7 NUM/0/10*; 00103510
P3 NOTES/C2/A1*/END; 00103610
RUN; 00103655
SRT 10000; SET SAMPLING RATE TO 10000 00100300
INS 0 1; INSTRUMENT 1 00100400
OSC P4 P5 B2 F1; 00100500
OSC B2 P3 B2 F2; 00100600
OUT B2 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK! 00100700
GEN 0 1 1 .01 0 .99 25; 00101400
.99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE! 00101500
GEN 0 2 2 .7 .5 0 .4 4*; F2 , 3 HARMONICS (1,2,4) 00101600
GEN 0 3 3 1 -1*; F3 PUTS LINE FROM 1 TO -1 IN 511 STEPS 00101700
00101800
SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP. 00101900
BLANK CARDS MAY COME INSTEAD OF INST NAMES OR 00102000
PARAM #S AFTER THIS POINT. 00102100
BUZZ ; INSTRUMENT 1=BUZZ, BEGIN TIME=0", 00102200
DURATION=# OF NOTES IN 'NOTES' (P3). 00102300
P2 RHY; RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM. 00102400
8 X 6/FINE*; 00102500
P3 A4; 00103000
P4 1000/END; 00103100
DUM1 GEN 0 1 6; 00103200
P2 P2/P3 2/P4 2/P5 NUM/1/.5/.2*; P5=1ST HARM. 00103300
P6 NUM/0/.5/.3*/P7 NUM/0/.2/.4*/P8 RLIST/0 0/0 .6/.2 .3*;P8=4TH HARM 00103400
P9 NUM/0/0/.5*/P10 0/P11 0/P12 .7 0,0 .3 0,1/P13 8/END; 8 HARMS. 00103500
;8 HARMONICS 00103550
RUN; 00103600
INS 0 1; INSTRUMENT 1 00100400
OSC P4 P13 B2 F1; 00100500
OSC B2 P3 B2 F2; 00100600
OUT B2 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK! 00100700
GEN 0 1 1 .01 0 .99 25; 00101400
.99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE! 00101500
GEN 0 2 2 1 0 .2 .04 4*; 00101600
00101800
SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP. 00101900
BUZZ 0 0 25; INSTRUMENT 1=BUZZ, BEGIN TIME=0", 00102200
P2 .15; 00102500
P3 A4; 00103000
P12 SUBR 24/P11 NUM/0/1/2/3/4/5/6/7/8/9/10/11/12; 00103050
13/14/15/16/17/18/19/20/21/22/23/24*; 00103075
P4 1000/END; 00103100
RUN; 00103200
SRT 10000; SET SAMPLING RATE TO 10000 00100300
INS 0 1; INSTRUMENT 1 00100400
OSC P4 P5 B2 F1; 00100500
OSC B2 P3 B2 F2; 00100600
OUT B2 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK! 00100700
GEN 0 1 1 .01 0 .99 25; 00101400
.99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE! 00101500
GEN 0 2 2 .7 .5 0 .4 4*; F2 , 3 HARMONICS (1,2,4) 00101600
GEN 0 3 3 1 -1*; F3 PUTS LINE FROM 1 TO -1 IN 511 STEPS 00101700
00101800
SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP. 00101900
BLANK CARDS MAY COME INSTEAD OF INST NAMES OR 00102000
PARAM #S AFTER THIS POINT. 00102100
BUZZ ; INSTRUMENT 1=BUZZ, BEGIN TIME=0", 00102200
DURATION=# OF NOTES IN 'NOTES' (P3). 00102300
P2 RHY; RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM. 00102400
TEMPO/2 60 240/2 240 60*;
16 X 16/8/FINE*;
P3 NO/C4/D/E/F*;
P4 1000/END; 00103100
QQQ ;
P2 RHY/8////*;
P3 NO/BF3/AF/GF/F/BF/FINE*;
I 1; USES INST. 1
P4 P4/END;
RUN; 00103600